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ILCOMPUTER 
DIRETTAMENTE 
DAL COMPUTER 


per Commodore 





In questa lezione vedremo le istruzioni per creare la grafica 
adalta risoluzione, cioè: COLOR, HIRES, LINE, PLOT, NRM. 
Con queste istruzioni risulterà davvero semplice disegnare 
sul video, dato che non sarà più necessario ricorrere alle 
istruzioni POKE e ricordare tutte le locazioni dimemoria da 


utilizzare. 


serve per cambiare il colore dello sfondo e del bordo. 
Dovrà essere usato nel Modo: COLOR S, B 


predispone lo schermo per l'alta risoluzione con 320 punti 
orizzontali e 200 verticali. 
Dovrà essere usato nel seguente Modo: HIRES C, S, E 








serve per tracciare una linea tra due punti, nel seguente 
modo: NEXT: Y49R2: T2eL 





serve per indirizzare un singolo punto dello schermo. 
Dovrà essere usato nel seguente Modo: PLOT X, Y, L 





serve per spegnere lo schermo in alta risoluzione e ritornare 
al testo normale. Questa istruzione non ha parametri. 


NB: Ogni volta che si vorranno utilizzare le istruzioni 
occorrerà prima caricare il programma HELP allegato 
alla lezione 31. 


PROGRAMMIAMO INSIEME (CBM 64) 
DATA BASE 2° PARTE 


7090 
7020 
7030 
7040 
7060 
70809 
7100 
7140 
71609 
7180 
7190 
7209 
8000 
80109 
8020 
8030 
8040 
8e5o 
8269 
8030 
8100 
2000 
9020 
9040 
3060 
9190 
9200 


rem *xx* variazione x**X 

print"=fif DATA BASE: Variazione codice df"F: inputv 
if (Vv{1)5+{V>i)thengosub20@00909:g90ot070209 
h=v:gosub2490909:9053ub26000 

x=0:y=23:90sub349090: input"Guale modifichi (@=fine) "im 
if (m<09)3+(m>n>)thengosub29090909:g90t07960 
ifm=Bthenreturn 

x=135y=m:90sub34900: inputd$£(m,v) 
h=vik=m:igosub25000 

ifci=zithen?140 

ift(m)=@tthengosub260900 

goto7960 

rem x**X cancellazione x%*X%x* 

ifi(othenreturn 

print"=fiZ DATA BASE: Cancellazione codice mi": inputv 
if (Vv{1)+(v>i)thengosub2909090:g90t08920 
h=v:gosub242900:g90sub 26000 

gosub23000 

ifc=Othenreturn 
fork=iton+t1:d$kK,v)=d$(K,i)fînextKii=i.-1 

return 

rem xX% visualizzazione x*x%xX 

print"=igz DATA BASE: Situazione generale Ple 
input "SEEna quale codice ":p:iifp=@thenreturn 

if (p<{1)+(p>i)thengosub2090900:g0ot09920 

hs=p 

print"%f";:g9o0osub28900 


92209 x=3:y=24:90sub34000:print"A:Avanti - I:Indietro - 
MiMenu "5; 

9249 getj$ 

92609 if ((j$&="a")+(j$="AfA"))x(h<i)thenh=h+1:got0o92009 
92809 if(C(j$="i")+C(j$="I"))%(h>}1)thenh=h-1:goto9200 
9300 if (j$="m")+(j$="M")thenreturn 

9599 goto9240 

19699 rem **xX ricerca %X%% 

10029 qa=0:print"*if DATA BASE: Ricerca 

a" 

10940 ifz=9thenz=n+ti1!c$(n+1)="TOTALE":1n+t1)=9 

10100 Kk=Q 

10129 K=K+11x=2!y=3+(K+1)/2:g90sub349009:pr intright$(str$ 
CHILI - “"FOSETKI 

10130 ifk=ntheni09160 

109140 K=K+1:1x=22:y=3+K/2:!g90sub340900:printright$(str$(kK) 
sr "ECHI 

10145 ifk<‘ntheni01i20 

10150 x=2:y=4+kK/2:!90sub340090:printright$(str$(n+t10,20);" 
- TOTRLE":goto 109200 

10169 x=221y=3+(kK+1)/2:90sub34900:printright$(str$é(n+t1) 
CI = TOTALE 

19200 x=11:y=209:g90sub34900:input"Su quale campo";ij 
10220 if(j<1)+(j>n+1)thengosub200999:g0ot0 19200 

19399 print"zig DATA BASE: Tipo di ricerca d' 
10320 x=7:y=4:!g905ub34000:print"1 - Per indizio incomple 
"TO 


19340 x=7!y=6:g0sub34090:print"2 - Per indizio identico" 
10369 x=7:y=8:90sub34000:print"3 - Per indizio interno" 
1938389 x=7:y=1@A:g90sub340900:print"4 - Per indizio minore” 
104009 x=7:y=12:903ub34000:print"5 - Per indizio maggior 
TN 

10420 x=7:y=22:!g90sub34Q000:print "Campo da totalizzare: 
"ic cz) 

105009 x=7:y=16:90sub34000:print"Tipo di ricerca (1-5)? 
10520 getd$ 

10540 if (d$<’"1")+(ds$>"5”)then10520 

19560 printd$ 

190600 x=7:y=18:90sub34900:input"Indizio":i$s:u=len(C(is$) 
106095 if ct(j)=@9)x(val(i$)<@0)thencp$="":igot0 19619 

19606 cp$&=" " 

10610 if(tlj)=@9)*x(cp$+ti$<(})str$(vall(i$)))thengosub20000: 
goto 1a60a 

106209 ifu>l‘(j)thengosub20990:g90t019600 

109800 if <t(j)=9)%(d$="4">)then11500 

109820 if (t(j)=29)*(d$="5")then11600 

18849 onval(d$)g0t011000,111909,112009,11300,11400 

11009 foru=itoi 

1109209 ifi$=left$(d$(j.,0),u)thenh=w:print "#1"; :90sub28900 


‘gosub290900:g90sub220900 


11940 
11100 
11120 


nextw:igotol180@ 
foru=itoi 
ifi$=d$(j,w)thenh=w:print"#";:905sub28000:g90sub29000 


“gosub220900 


11149 nextw:goto11800 

112009 foru=itoi:yv9=0 

11210 w9S=wy9St+1 - 

11220 ifi$=mid$(d$&(j,w),u9,u)thenh=wiprint "ai"; :goto11280 
11239 ifw9S<lend$(j,w4))-u+tithenii2z10 

11240 nextuw:gotolis09@ 

11289 gosub28900:g90sub29900:g90sub220090:g90t011240 

11309 foru=itoi 

11320 ifi$<=d$(;j,w)thenh=w:pr int "#1"; :g90sub2809009:90sub29 
999:90sub22000 

11349 nextw:goto11800 

11400 foru=itoi 

11420 ifi#>=d$(j,w>thenh=w:pr int "Zi"; :90sub28900:g9osub29 
999:90sub22000 

11449 nextw:igotoi180@ 

115009 foru=litoi 

11529 ifval(i$)<=val (d$(j.,w))thenh=w:pr int "#8"; :90sub2809 
99:g90sub29990:g90sub22000 

11549 nextw:goto118090 

116099 foru=itoi 

11620 ifvall(i$)>}=val(d$&C(j.,w))thenh=w:print "sf"; :90sub280 
909:90sub299090:90sub220900 

11649.nextw:goto118090 

11899 print "Zid DATA BASE: Totalizzazione campo d' 
11805 x=6!y=4:g0sub34000:print"Campo totalizzato: "5c$(2) 
11819 x=6:y=1@A:g90sub34000:print"Somma totale ":q9 


11820 


x=6:y=209:g90sub349009:pr int "Premi M per tornare al 


menu" 


118409 
11900 
2409000 
249020 
24040 
24050 
24060 
24980 
24100 
24120 
24200 
28000 
28920 


28049 
28060 
28080 
28100 
28120 
28140 
28160 
28200 
29000 
29060 
29500 
29600 


gety$!if (y$<>"m")x(y$<{>"M")then11840@ 
return 

rem x*x%X visualizzazione record *X*X* 
fork=iton 
x=9:!y=K!igosub34000:printright$&(str$(K),2); 
ift(K)=Athenprint ">"; 
ift(K)=ithenprint"-"5 
x=35y=K:5gosub34000:pr intc£K) 
x=13fy=K!g9o0sub340900:print": "5id$£{K,h) 
nextKk 

return 

rem **X%X scroll record %%XxX% 

print"--- Cédice:":right$(" "tistr@#0h) 305" ---- 


fork=iton 
printrightsc(str$(kK),2); 
ift(Kk)=0thenprint">}"5c$8K)5 
ift(kK)=lithenprint"-"5c$C(K)5 
printtab(13)": "5d$(K,h) 

nextk 
print:iprint"Totale:":d$(mt1,h) 
return 

rem x*X%*X totale cumulato x%%X%% 
q=qtval((dé&(Z,h6)) 
x=18iy=n+2:g90sub349090:pr int "Somma: "59 
return 
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